Źródło: http://smarterpoland.pl/wp-content/uploads/2020/12/a3.png
Dane <- c(0.375, 0.625)
Kol <- c("TAK", "NIE")
df <- data.frame(Dane, Kol)
ggplot(df,
mapping = aes(x = Kol, y = Dane))+
geom_col() +
labs(title = "Czy uważasz, że państwa UE mogą być różnie traktowane?",
x = " ", y = "Procent ankietowanych") +
scale_y_continuous(labels = scales::percent)